home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctjdc85.arc / BENCHMRK.LSP < prev    next >
Text File  |  1985-11-26  |  640b  |  29 lines
  1. (defun empty-loop-prog (count)
  2.   (prog ((n count))
  3.     loop
  4.     (when (zerop n) (return nil))
  5.     (setf n (1- n))
  6.     (go loop) ))
  7.  
  8. (defun empty-loop-do (count)
  9.   (do
  10.     ((n count (1- n)))
  11.     ((zerop n) nil) ))
  12.  
  13. (defun empty-loop-dotimes (count)
  14.   (dotimes (k count nil)) )
  15.  
  16. (defun makelist-iterative (count)
  17.   (let ((result nil))
  18.     (dotimes (k count result)
  19.       (setf result (cons nil result)) )))
  20.  
  21. (defun makelist-recursive (count)
  22.   (if (zerop count)
  23.     nil
  24.     (cons nil (makelist-recursive (1- count))) ))
  25.  
  26. (defun float-test (count)
  27.   (dotimes (k count)
  28.      (/ 1.0 3.0) ))
  29.